home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet internetowy / Czytniki NEWS / 40Tude Dialog 2.0.15.1 beta 38 / 4d2b38.exe / {app} / Scripts / Event / statusbar-WM_LBUTTONDBLCLK.ds < prev   
Text File  |  2003-10-16  |  448b  |  19 lines
  1. program statusbar_WM_LBUTTONDBLCLK;
  2.  
  3. // This script is called whenever you double-click 
  4. // on the status bar. If you clicked on the left part
  5. // of the status bar, the status window is shown/hidden
  6. // by this script
  7.  
  8. uses forms;
  9.  
  10. procedure OnWMessage(var msg:Tmessage;var handled:boolean);
  11. var x:smallint;
  12. begin
  13. x:=msg.lparam;
  14. if x<(application.mainform.width div 2) then ADo('ShowStatusWindow');
  15. handled:=false;
  16. end;
  17.  
  18. begin
  19. end.